home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
Source
/
MSG Demo 1.4.source Folder
/
Demo ƒ
/
Fades ƒ
/
Pour scroll fade.c
< prev
next >
Wrap
Text File
|
1994-04-19
|
3KB
|
111 lines
/**********************************************************************\
File: Pour scroll fade.c
Purpose: Graphic effect to fade main window to solid pattern.
See comments below for more description.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program in a file named "GNU General Public License".
If not, write to the Free Software Foundation, 675 Mass Ave,
Cambridge, MA 02139, USA.
\**********************************************************************/
#include "timing.h"
#define CorrectTime 2
#define theWindowHeight (boundsRect.bottom-boundsRect.top)
#define theWindowWidth (boundsRect.right-boundsRect.left)
pascal short PourScrollFade(Rect boundsRect, Pattern *thePattern);
/* Scroll down in tiny strips, starting at the left and moving right. Scroll
strips 1-(N), then strips 1-(N+1), etc. When strip 1 is done, don't do it
anymore! (Duh, but this was difficult to get right.) So only scroll strips
2-(N), and so on. */
pascal short PourScrollFade(Rect boundsRect, Pattern *thePattern)
{
Rect *dest;
int *iter;
Rect scrollsource;
int i;
int startstrip,endstrip;
int ScrollSize, BoxSize;
long temp;
int NumStrips;
NumStrips=theWindowWidth/4;
dest=(Rect*)NewPtr(sizeof(Rect)*NumStrips);
if (dest==0L)
return -1; /* memory error */
iter=(int*)NewPtr(sizeof(int)*NumStrips);
if (iter==0L)
{
DisposePtr(dest);
return -1; /* memory error */
}
ScrollSize=theWindowHeight/50;
BoxSize=theWindowWidth/NumStrips;
SetRect(&scrollsource, boundsRect.left, boundsRect.top, boundsRect.left+BoxSize,
boundsRect.bottom);
for (i=0; i<NumStrips; i++)
{
dest[i].top = 0;
dest[i].bottom=ScrollSize;
dest[i].left=i*BoxSize;
dest[i].right=dest[i].left+BoxSize;
OffsetRect(&(dest[i]), boundsRect.left, boundsRect.top);
iter[i]=theWindowHeight;
}
startstrip=0;
endstrip=1;
do
{
StartTiming();
ScrollTheRect(&scrollsource, 0, ScrollSize, 0L);
for (i=startstrip; i<endstrip; i++)
{
FillRect(&dest[i], *thePattern);
iter[i]-=ScrollSize;
}
if (endstrip<NumStrips)
{
endstrip++;
scrollsource.right+=BoxSize;
}
if (iter[startstrip]<=0)
{
startstrip++;
scrollsource.left+=BoxSize;
}
TimeCorrection(CorrectTime);
}
while (startstrip<endstrip);
DisposePtr(dest);
DisposePtr(iter);
return 0;
}